' iBHelloPP.ibas
{CREATORID "LDIH"}
{VERSION "3.0"}

BEGIN
A$=CALLPP$(100,"Hello World from PP Code")
A=FILEERROR
IF A=0 THEN
   A$="PP Code replied: '"+A$+"'"
ELSE
   A$="PP Code was not found!"
ENDIF
LABEL #1,A$,2,50
B$=CALLPPARM$(100,"Hello World from PP ARMlet")
B=FILEERROR
IF B=0 THEN
   B$="PP ARMlet replied: '"+B$+"'"
ELSE
   C$=GETOSVER$ : C$=CHAR$(C$,1)
   IF C$="5" THEN 
      B$="PP ARMlet was not found!"
   ELSE
      B$="Your device does not support ARMlets!"
   ENDIF
ENDIF
LABEL #2,B$,2,110
REPEAT : A=DOEVENTS : UNTIL A=-1
END